/SPdict1 4 dict def
SPdict1 begin
/RepC { 255. div 3 1 roll 255. div 3 1 roll 255. div 3 1 roll
setrgbcolor } bind def
/C { 3 copy 1 index eq 3 1 roll eq and
{ pop pop systemdict begin 255. div setgray end }
{ RepC } ifelse } def
/setrgbcolor
{ 3 copy 1 index eq 3 1 roll eq and
{ pop pop systemdict begin setgray end }
{ systemdict begin setrgbcolor end }
ifelse } def
end